﻿Public Class frmMain

    Private Sub cmdExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdExit.Click
        End
    End Sub
    Private Sub SettingsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SettingsToolStripMenuItem.Click
        frmSettings.ShowDialog()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        End
    End Sub
    Private Sub frmMain_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        End
    End Sub

    Private Sub cmdDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdDownload.Click
        Me.Hide()
        'frmDownload.Show()
        'If Not frmDownload.downloadedClasses Then
        'Me.Cursor = Cursors.WaitCursor
        'frmDownload.lstClass.Enabled = False
        'frmDownload.lstAssignment.Enabled = False
        'frmDownload.cmdCollected.Enabled = False
        'frmDownload.cmdMissing.Enabled = False
        'frmDownload.cmdGrade.Enabled = False
        'frmDownload.cmdDownload.Enabled = False
        'frmDownload.cmdFinshed.Enabled = False
        'frmDownload.cmdFinshed.ForeColor = Color.Gray
        Call frmDownload.getclasses()
        'Me.Cursor = Cursors.Default
        'frmDownload.lstClass.Enabled = True
        'frmDownload.lstAssignment.Enabled = True
        'frmDownload.cmdCollected.Enabled = True
        'frmDownload.cmdMissing.Enabled = True
        'frmDownload.cmdGrade.Enabled = True
        'frmDownload.cmdDownload.Enabled = True
        'frmDownload.cmdFinshed.Enabled = True
        'frmDownload.cmdFinshed.ForeColor = Color.Black
        'frmDownload.downloadedClasses = True
        'End If
    End Sub

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.TopMost = True
    End Sub

    Private Sub cmdGrade_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdGrade.Click
        'Me.Hide()
        MsgBox("This Section of the Program is currently disabled in this build")
        'frmGrade.Show()
        'frmGrade.Activate()
    End Sub

    Private Sub cmdSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdSearch.Click
        'Me.Cursor = Cursors.WaitCursor
        'Call frmSearch.collectdata()
        'Me.Cursor = Cursors.Default
        'frmSearch.Show()
        MsgBox("This Section of the Program is currently disabled in this build")
    End Sub

    Private Sub cmdUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdUpload.Click
        Me.Hide()
        frmUpload.Show()
        frmUpload.Activate()
    End Sub

    Private Sub DownloadAssignmentsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DownloadAssignmentsToolStripMenuItem.Click
        Me.Hide()
        frmDownload.Show()
        'If Not frmDownload.downloadedClasses Then
        'Call frmDownload.getclasses()
        'frmDownload.downloadedClasses = True
        'End If
    End Sub

    Private Sub UploadAssignmentsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UploadAssignmentsToolStripMenuItem.Click
        Me.Hide()
        frmUpload.Show()
        frmUpload.Activate()
    End Sub

    Private Sub SearchToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchToolStripMenuItem.Click
        'Me.Cursor = Cursors.WaitCursor
        'Call frmSearch.collectdata()
        'Me.Cursor = Cursors.Default
        'frmSearch.Show()
        MsgBox("This Section of the Program is currently disabled in this build")
    End Sub

    Private Sub GradeAssignmentsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GradeAssignmentsToolStripMenuItem.Click
        'Me.Hide()
        'frmGrade.Show()
        'frmGrade.Activate()
        MsgBox("This Section of the Program is currently disabled in this build")
    End Sub

    Private Sub AboutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutToolStripMenuItem.Click
        Me.Hide()
        frmAbout.Show()
        frmAbout.Activate()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Debugbutton.Click
        Me.Hide()
        debug.Show()
        debug.Activate()
    End Sub
End Class